home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_236_windowsDisplay behave.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  1.7 KB  |  61 lines
  1. property mySprite, myListToDisplay, myType, myRegion, ancestor, tileNum, tileSprite
  2.  
  3. on beginSprite me
  4.   global gUserDataMan, gActorListMan
  5.   unRegisterSprite(gActorListMan, mySprite)
  6.   mySprite = me.spriteNum
  7.   myRegion = getCurRegion(gUserDataMan)
  8.   myType = #FloorPlanDisplay
  9.   myListToDisplay = findDisplayList(me)
  10.   ancestor = new(script("FloorPlanDisplayActions"), mySprite, myListToDisplay)
  11.   registerSprite(gActorListMan, mySprite)
  12. end
  13.  
  14. on resetDisplay me, tileIconName
  15.   outPut("windowTile got <resetDisplay> with " & tileIconName)
  16.   if voidp(tileIconName) then
  17.     exit
  18.   end if
  19.   if tileIconName = (the member of sprite mySprite).name then
  20.     exit
  21.   end if
  22.   set the member of sprite mySprite to member(tileIconName)
  23.   initialIcon = tileIconName
  24.   put "1" into word 3 of initialIcon
  25.   dontChangemember = 1
  26.   outPut("sending ancestor " && initialIcon)
  27.   resetDisplay(ancestor, initialIcon, dontChangemember)
  28. end
  29.  
  30. on setDisplay me, choiceNum
  31.   if voidp(tileSprite) then
  32.     tileSprite = sendAllSprites(#sendSpriteNum, #tileSprite)
  33.   end if
  34.   windowType = getWindowType(me)
  35.   newMember = "SD" && string(windowType) && choiceNum
  36.   set the member of sprite mySprite to member(newMember)
  37.   sendSprite(tileSprite, #setTile, newMember)
  38. end
  39.  
  40. on findDisplayList me
  41.   listToReturn = ["SD PictureWindow 1", "SD BayWindow 1", "SD SingleWindow 1"]
  42.   return listToReturn
  43. end
  44.  
  45. on getWindowType me
  46.   iconName = (the member of sprite mySprite).name
  47.   windowType = symbol(word 2 of iconName)
  48.   return windowType
  49. end
  50.  
  51. on endSprite me
  52.   global gActorListMan
  53.   unRegisterSprite(gActorListMan, mySprite)
  54. end
  55.  
  56. on sendTileName me, aType
  57.   if aType = myType then
  58.     return (the member of sprite mySprite).name
  59.   end if
  60. end
  61.